ui <- fluidPage(
  HTML("<h1>Título hecho con HTML</h1>")
)

# Definición del server
server <- function(input, output) {}

# App completa con los componentes ui y server
shinyApp(ui, server)

ui <- fluidPage(
  tags$h1("Título hecho con R")
)

# Definición del server
server <- function(input, output) {}

# App completa con los componentes ui y server
shinyApp(ui, server)

ui <- fluidPage(
  h1("Tamaño 1"),
  h2("Tamaño 2"),
  h3("Tamaño 3"),
  h4("Tamaño 4"),
  h5("Tamaño 5"),
  h6("Tamaño 6")
)

# Definición del server
server <- function(input, output) {}

# App completa con los componentes ui y server
shinyApp(ui, server)

ui <- fluidPage(
  h3("texto"),
  hr(),
  h3("texto")
)

# Definición del server
server <- function(input, output) {}

# App completa con los componentes ui y server
shinyApp(ui, server)

ui <- fluidPage(
  "Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed eiusmod tempor incidunt ut labore et dolore magna aliqua."
)

# Definición del server
server <- function(input, output) {}

# App completa con los componentes ui y server
shinyApp(ui, server)

ui <- fluidPage(
  "Texto 1",
  br(),
  "Texto 2"
)

# Definición del server
server <- function(input, output) {}

# App completa con los componentes ui y server
shinyApp(ui, server)

ui <- fluidPage(
  p("Párrafo 1"),
  p("Párrafo 2")
)

# Definición del server
server <- function(input, output) {}

# App completa con los componentes ui y server
shinyApp(ui, server)

ui <- fluidPage(
  em("itálica")
)

# Definición del server
server <- function(input, output) {}

# App completa con los componentes ui y server
shinyApp(ui, server)

ui <- fluidPage(
  strong("negrita")
)

# Definición del server
server <- function(input, output) {}

# App completa con los componentes ui y server
shinyApp(ui, server)

ui <- fluidPage(
  code("código")
)

# Definición del server
server <- function(input, output) {}

# App completa con los componentes ui y server
shinyApp(ui, server)

ui <- fluidPage(
  p("Lorem ipsum dolor sit amet, ", strong("consectetur"), " adipiscing elit, ", em("sed eiusmod tempor incidunt ut labore et dolore magna aliqua."))
)

# Definición del server
server <- function(input, output) {}

# App completa con los componentes ui y server
shinyApp(ui, server)

ui <- fluidPage(
  theme = "bootstrap.css",
  sidebarLayout(
    sidebarPanel(),
    mainPanel()
  )
)

# Definición del server
server <- function(input, output) {}

# App completa con los componentes ui y server
shinyApp(ui, server)

ui <- fluidPage(
  includeCSS("bootstrap.css"),
  sidebarLayout(
    sidebarPanel(),
    mainPanel()
  )
)

# Definición del server
server <- function(input, output) {}

# App completa con los componentes ui y server
shinyApp(ui, server)

• Formalmente es un RMarkdown (documento interactivo) con elementos de Shiny
  
• Muy buena combinación con Github
  
• Redes sociales (Twitter, Facebook, Google+, LinkedIn and Pinterest)
  
• Posibilidad de incrustar código

## app.R ##
library(shinythemes)

shinyApp(
  ui = fluidPage(theme = shinytheme("united"),
    ...
  ),
  server = function(input, output) { }
)

## app.R ##
library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody()
)

server <- function(input, output) { }

shinyApp(ui, server)

• Diferentes colores (skins) para el tema
• Utilización de iconos 1 y 2

library(rgl, rglwidget, htmltools)

theta <- seq(0, 6*pi, len=100)
xyz <- cbind(sin(theta), cos(theta), theta)
lineid <- plot3d(xyz, type="l", alpha = 1:0, lwd = 5, col = "blue")["data"]

browsable(tagList(
  rglwidget(elementId = "example", width = 500, height = 400,
            controllers = "player"),
  playwidget("example", 
             ageControl(births = theta, ages = c(0, 0, 1),
                        objids = lineid, alpha = c(0, 1, 0)),
                        start = 1, stop = 6*pi, step = 0.1, 
                        rate = 6,elementId = "player")))